report zvik oo alv all. 

data : o container type ref to cl gui custom container, 
o grid type ref to cl gui alv grid, 
it ekko type table of ekko. 


class lcll event receiver definition. 
public section. 
methods : handle double clickl for event double click 
of cl gui alv grid importing e row e column, 


handle toolbar for event toolbar 
of cl gui alv grid importing e object, 


handle user command for event user command 
of cl gui alv grid importing e ucomm. 


endclass. 


*Implement Event Handler CLass 
class lcll_ event receiver implementation. 


method handle user command. 

data it ekpo type table of ekpo. 

case e ucomm. 

when 'GETAI’. 
if it ekko is not initial 
select * into table it ekpo from ekpo for all entries i 
n it ekko 
where ebeln = it ekko- 


ebeln. 
call function 'REUSE ALV GRID DISPLAY' 
exporting 
i structure name = 'EKPO' 
tables 
t outtab = it ekpo . 
endif. 


endcase. 


endmethod. 


method handle toolbar. 
data wa button type line of ttb button. 
wa button-function = 'GETAI'. 
wa button-text = 'GetAllItems'. 
append wa button to e object->mt toolbar. 


endmethod. 


method handle double clickl. 
data : wa ekko type ekko, 
it ekpo type table of ekpo. 
read table it ekko into wa ekko index e row-index. 


if e column = 'EBELN'. 
select * into table it ekpo from ekpo 


where ebeln = wa ekko-ebeln. 


call function 'REUSE ALV GRID DISPLAY' 


exporting 
i structure name = 'EKPO' 
tables 
t outtab = it ekpo 
endif. 
endmethod. 


endclass. 
data o event rcvr type ref to lcll event receiver. 


start-of-selection. 
call screen 9000. 


module display alv 9000 output. 


create object o container 
exporting 


container name = 'C1' 


create object o grid 
exporting 


i parent = o container . 
create object o event rcvr. 
*For Each Event 
set handler : o event_rcvr->handle double clickl 
d, 


o event _rcvr->handle toolbar 
o event rcvr->handle user command 


call method o grid->set table for first display 


exporting 
i structure name = 'EKKO' 
changing 
it outtab = it ekko . 
endmodule. 


module read data 9000 output. 


for o gri 


for o grid, 
for o grid. 


select * into table it ekko from ekko up to 20 rows 


where bstyp = 'F'. 
endmodule. 


module status 9000 output. 
set pf-status 'ZSTATUS'. 


endmodule. 


module user command 9000 input. 
case sy-ucomm. 
when 'BK'. 
leave to screen 0. 


endcase. 


endmodule. 
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report zdemo oo alv all. 
data : o container type ref to cl gui custom container, 


o grid type ref to cl gui alv grid, 

it ekko type table of ekko, 

o splitter type ref to cl gui splitter container, 
o main type ref to cl gui container, 

o header type ref to cl gui container, 


o document type ref to cl dd document. 


*Define Event Handler CLass 
class lcl event receiver definition. 
public section. 
methods : handle double click for event double click 
of cl gui alv grid importing e row e column, 


handle toolbar for event toolbar 
of cl gui alv grid importing e object, 


handle user command for event user command 
of cl gui alv grid importing e ucomm, 


handle top of page for event top of page 

of cl gui alv grid, 
handle before user command for event 
before user command of cl gui alv grid 
importing e ucomm . 


endclass. 


*Implement Event Handler CLass 
class lcl event receiver implementation. 


method handle before user command. 
data : it index rows type lvc t row, 
wa type line of lvc t row, 
it selected ekko type table of ekko, 
wa ekko type ekko. 
case e ucomm. 
when "&PC'. 
message 'I am Executed before U' type 'I'. 


*Returns Only the Indexs of the Selected Rows 
call method o grid->get selected rows 


importing 
et index rows = it index rows 
ü et row no = 


*Get the Content by reading for Each Index In it index rows 


loop at it index rows into wa. 

read table it ekko into 

wa ekko index wa-index. 

append wa ekko to it selected ekko. 
endloop. 


call method cl gui frontend services=>gui download 
exporting 
x bin filesize = 
filename = 'F:\7AM\ALV\EKKO SELECTED. TXT' 
A filetype = 'ASC' 
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append = SPACE 
write field separator = SPACE 
header = '00' 
trunc_trailing blanks = SPACE 
write lf = 'X' 
col select = SPACE 
col select mask = SPACE 
dat mode = SPACE 
confirm overwrite = SPACE 
no auth check = SPACE 
codepage = SPACE 
ignore cerr = ABAP TRUE 
replacement = A 
write_bom = SPACE 
trunc trailing blanks eol = 'X' 
wkl n format = SPACE 
wkl n size = SPACE 
wkl t format = SPACE 
wkl t size = SPACE 
show transfer status = 'X' 
fieldnames = 
write lf after last line = 'X' 
IMPORTING 
filelength = 
changing 
data tab = it selected ekko 
EXCEPTIONS 
file write error = 1 
no_batch = 2 
gui refuse filetransfer = 3 
invalid type = 4 
no_authority = 5 
unknown_error = 6 
header not allowed = 7 
separator not allowea =8 
filesize not allowed 9 
header too long = 10 
dp error create = 11 
dp error sena = 12 
dp error write = 13 


A unknown dp error = 14 
a access denied = 15 
= dp out of memory = 16 
ii disk full = 17 
7 dp timeout = 18 
A file not found = 19 
id dataprovider exception = 20 
S control flush error =21 
N not supported by gui = 22 
dd error no gui = 23 
dd others = 24 


if sy-subrc = 0. 
message 'selected Lines are Successfully Downloaded' type 'S' 


endif. 


uline. 
call method o grid->set user command 
exporting 
i ucomm = space "Std.Function Decactivated 
endcase. 
endmethod 


method handle top of page. 
call method o document->add picture 


exporting 
picture id = 'ENJOYSAP LOGO' 
* width = 
alternative text = 
ii tabindex = 


call method o document->add text 
exporting 
text = 'List Of Purchasing Documents' 
N text table = 


fix lines = 
sap style = 
sap color = 
sap fontsize = 
sap fontstyle = 
sap emphasis = 
style class = 
CHANGING 
document = 


* * xXx DX —A A A A * 


call method o document->add picture 


exporting 
picture id = 'ENJOYSAP_ LOGO' 
id width = 
id alternative text = 
= tabindex = 


call method o document->display document 


exporting 
reuse control = 

úl reuse registration = 
és container = 

parent = 0 header 

EXCEPTIONS 
N html display error = 1 
N others =2 


if sy-subrc <> 0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
ij WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 


endif. 
endmethod. 


method handle user command. 
data it ekpo type table of ekpo. 
case e ucomm. 
when 'GETATI'. 
if it ekko is not initial 


select * into table it ekpo from ekpo for all entries i 
n it ekko 
where ebeln = it ekko- 
ebeln. 
call function 'REUSE ALV GRID DISPLAY' 
exporting 
I INTERFACE CHECK =" 
I BYPASSING BUFFER =" 
I BUFFER ACTIVE =" 
I CALLBACK PROGRAM =" 
I CALLBACK PF STATUS SET =" 
I CALLBACK USER COMMAND =" 
I CALLBACK TOP OF PAGE =" 
I CALLBACK HTML TOP OF PAGE =" 
I CALLBACK HTML END OF LIST =" 
i structure name = 'EKPO' 
I BACKGROUND ID =" 
I GRID TITLE = 
I GRID SETTINGS = 
IS LAYOUT = IS LAYOUT 
IT FIELDCAT = 
IT EXCLUDING = 
IT SPECIAL GROUPS = 
IT SORT = 
IT FILTER = 
IS SEL HIDE = 
I DEFAULT = 'X' 
I SAVE =" 
IS VARIANT = 
IT EVENTS = IT EVENTS 
IT EVENT EXIT = 
IS PRINT = 
IS REPREP ID = 
I SCREEN START COLUMN = 
I SCREEN START LINE = 
I SCREEN END COLUMN = 
I SCREEN END LINE = 
I HTML HEIGHT TOP = 
I HTML HEIGHT END = 
IT ALV GRAPHICS = 
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IT HYPERLINK = 
IT ADD FIELDCAT = 
IT EXCEPT QINFO = 
IR SALV FULLSCREEN ADAPTER = 
IMPORTING 
E EXIT CAUSED BY CALLER = 
ES EXIT CAUSED BY USER = 
tables 
t outtab = it ekpo 
id EXCEPTIONS 
2 PROGRAM ERROR =1 
+ OTHERS =2 


* * Xx XX A * 


if sy-subrc <> 0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 
endif. 
endcase. 
endmethod. 


* 


method handle toolbar. 
data wa_button type line of ttb button. 
wa button-function = 'GETAI'. 
wa button-text = 'GetAlLItems'. 
append wa button to e object->mt toolbar. 


endmethod. 


method handle double click. 
data : wa ekko type ekko, 
it ekpo type table of ekpo. 
read table it ekko into wa ekko index e row-index. 


if e column = 'EBELN'. 
select * into table it ekpo from ekpo 
where ebeln = wa ekko-ebeln. 


call function 'REUSE ALV GRID DISPLAY' 
exporting 
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I INTERFACE CHECK =" 

I BYPASSING BUFFER =" 

I BUFFER ACTIVE =" 

I CALLBACK PROGRAM =" 

I CALLBACK PF STATUS SET =" 

I CALLBACK USER COMMAND =" 

I CALLBACK TOP OF PAGE =" 

I CALLBACK HTML TOP OF PAGE =" 

I CALLBACK HTML END OF LIST =" 

i structure name = 'EKPO' 

I BACKGROUND ID =" 

I GRID TITLE = 

I GRID SETTINGS = 

IS LAYOUT = 

IT FIELDCAT = 

IT EXCLUDING = 

IT SPECIAL GROUPS = 

IT SORT = 

IT FILTER = 

IS SEL HIDE = 

I DEFAULT = 'X' 

I SAVE =" 

IS VARIANT = 

IT EVENTS = IT EVENTS 
IT EVENT EXIT = 
IS PRINT = 
TS REPREP TO = 
I SCREEN START COLUMN = 
I SCREEN START LINE = 
I SCREEN END COLUMN = 
I SCREEN END LINE = 
I HTML HEIGHT TOP = 
I HTML HEIGHT END = 
IT ALV GRAPHICS = 
IT HYPERLINK = 
IT ADD FIELDCAT = 
IT EXCEPT QINFO = 
IR SALV FULLSCREEN ADAPTER = 

IMPORTING 
E EXIT CAUSED BY CALLER = 


Seo oo 8 & 


A ES EXIT CAUSED BY USER = 


tables 
t_outtab = it_ekpo 
+ EXCEPTIONS 
+ PROGRAM ERROR =1 
* OTHERS =2 


if sy-subrc <> 0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 
endif. 


* 


endmethod. 
endclass. 


data o event_rcvr type ref to lcl event receiver. 
start-of-selection. 
call screen 9000. 


module display alv 9000 output. 
data is layout type lvc s layo. 
is layout-sel mode = 'D'. “Allows Multi Line Selection 


create object o grid 
exporting 
i shelistyle = 0 
i lifetime = 
i parent = o main 
i appl events = space 
i parentdbg = 
i applogparent = 
i graphicsparent = 


* * 


* * XA * 


i name = 
i fcat complete = space 
EXCEPTIONS 
error cntl create = 
error cntl init = 
error cntl link = 
error dp create = 
others = 
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if sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

N WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 


*Register the Event Handler Methods 
create object o event_rcvr. 


*For Each Event 


set handler : o event _rcvr->handle double click for o grid, 
o event rcvr->handle toolbar for o grid, 
o event rcvr->handle user command for o grid, 
o event rcvr->handle top of page for o grid, 


o event rcvr->handle before user command for o gri 


create object o document 


*To Trigger the List Processing Event -> 'TOP OF PAGE' 
call method o grid->list processing events 


exporting 
i event name = "TOP OF PAGE' 
i dyndoc id = o document 
is subtottixt info = 
N ip subtot line = 


S i table index 


CHANGING 
a c subtottxt = 


data : it fieldcat type lvc t fcat, 
wa fieldcat type line of lvc t fcat. 


call function 'LVC FIELDCATALOG MERGE' 


exporting 
* I BUFFER ACTIVE = 
i structure name = 'EKKO' 
I CLIENT NEVER DISPLAY = 'X' 


* L BYPASSING BUFFER = 
* L INTERNAL TABNAME = 


changing 
ct fieldcat = it fieldcat 
* EXCEPTIONS 
* INCONSISTENT INTERFACE = 1 
* PROGRAM ERROR =2 
* OTHERS =3 


if sy-subrc <> 0. 
* Implement suitable error handling here 
endif. 


clear wa fieldcat. 
wa fieldcat-emphasize = 'C71'. 
modify it fieldcat from wa fieldcat transporting 
where fieldname = 'LIFNR'. 
call method o grid->set table for first display 
exporting 
i buffer active = 
i bypassing buffer = 
i consistency check = 
i structure name = 'EKKO' 
is variant = 
i save = 
1 default = 'X' 
is layout = is layout 
a is print = 


* XX XX XA X 


emphasize 


it special groups = 
it toolbar excluding = 
it hyperlink = 
it alv graphics = 
it except qinfo = 
ir salv adapter = 
changing 
it outtab it ekko 
it fieldcatalog it fieldcat 
N it sort = 
N it filter = 
* EXCEPTIONS 
N invalid parameter combination = 
* 
* 
* 


* * A A A * 


program_error = 
too many lines = 
others = 


AUNAK 


if sy-subrc <> 0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 


* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 

endif. 

endmodule. " DISPLAY ALV 9000 OUTPUT 

TA THT THT TTT 
PIT ate xX 

TA Module READ DATA 9000 OUTPUT 

TA E HIH ETIE ET E ETT TTT eee 
Sra tens xX 


module read data 9000 output. 
select * into table it ekko from ekko up to 20 rows 
where bstyp = 'F'. 


endmodule. " READ DATA 9000 OUTPUT 
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module status 9000 output. 
set pf-status 'ZSTATUS'. 
* SET TITLEBAR 'xxx'. 


endmodule. " STATUS 9000 OUTPUT 
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module user command 9000 input. 
case sy-ucomm. 


when 'BK'. 
leave to screen 0. 
endcase. 
endmodule. " USER COMMAND 9000 INPUT 
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module split container 9000 output. 
create object o container 
exporting 
a parent = 
container name = 'C1' 
style = 
lifetime = lifetime_default 
repid = 
dynnr = 
no autodef progid dynnr = 
EXCEPTIONS 
cntl_error = 
cntl system error = 
create error = 
lifetime error = 
lifetime dynpro dynpro link = 
others = 
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if sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

+ WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 


create object o splitter 
exporting 
link dynnr = 
link repia = 
shellstyle = 
left = 
top = 
width = 
height = 
metric = cntl metric dynpro 
align = 15 
parent o container 
rows = 2 
columns = 1 
no_autodef progid dynnr = 
name = 
EXCEPTIONS 
cntl_error = 1 
cntl_system_error = 
others = 3 


* XX A A A A XA * 


N 
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if sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

N WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 


call method o splitter->get container 


exporting 
row =1 
column = 1 
receiving 


container = o header 


call method o splitter->get container 


exporting 
row =2 
column = 1 
receiving 


container = o main 


call method o splitter->set row height 
exporting 
id = 1 “Rowl 
height = 25 
* IMPORTING 
N result = 
* EXCEPTIONS 
N cntl error = 1 
x cntl system error = 
N others =3 


N 


if sy-subrc <> 0. 

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 

N WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
endif. 


endmodule. " SPLIT CONTAINER 9000 OUTPUT 


